home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / c-control setup / _setup.1 / 010.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-03-07  |  1.9 KB  |  78 lines
  1. '********************************************************************
  2. '
  3. ' C-Control/BASIC       010.BAS
  4. '
  5. ' Systemvoraussetzungen:
  6. '
  7. ' - serielle Verbindung zum PC
  8. ' - Terminalprogramm
  9. ' - Taster an Port 9 nach GND
  10. ' - 25k-Potentiometer, mit den Aussenkontakten
  11. '   zwischen 5V und GND geschaltet, Schleifer verbunden
  12. '   mit A/D 1
  13. '
  14. ' Schwerpunkte:
  15. '
  16. ' - bedingte Ausfuehrung mit IF...THEN...ELSE
  17. ' - Vergleichsoperationen
  18. ' - logische Verknüpfungen
  19. ' - Programme mit Dauerschleife und definiertem Ausstieg
  20. '
  21. ' Beispiel 007.BAS arbeitet bereits mit einer Dauerschliefe,
  22. ' kann jedoch nur mit RESET beendet werden.
  23. '
  24. '********************************************************************
  25.  
  26. ' --- Definitionen --------------------------------------------------
  27.  
  28.   define poti ad[1]
  29.   define key port[9]
  30.   
  31.   define SCHWELLE 100
  32.  
  33.  
  34. ' --- Programmoperationen -------------------------------------------
  35.  
  36. 'Programmtitel ausgeben 
  37.   print "C-Control/BASIC      010.BAS"
  38.   print "============================"
  39.   print
  40.   
  41.  
  42. ' Beginn der Dauerschleife
  43. #loop
  44.  
  45. ' Abfrage des Potis und Vergleich mit einem Schwellwert
  46.   if poti > SCHWELLE then print "viel", else print "wenig",
  47.  
  48. ' sollen mehrere Anweisungen bedingt ausgeführt werden, dann ist
  49. ' ein Unterprogrammaufruf notwendig
  50.  
  51.   if poti = 255 then gosub special
  52.   
  53. ' Wenn der Taster gedrueckt ist, dann wird 0 vom Port gelesen
  54. ' -> Invertieren des Ports entspricht der Frage "Taste gedrueckt?".
  55. ' Gleichwertig im Ergebnis, jedoch langsamer in der Ausführung 
  56. ' ist der Vergleich key = 0.
  57.  
  58.   if not key then print "Taste gedrueckt";
  59.   
  60. ' Abbruchbedingung und Programmende
  61.   if not key and poti = 0 then end
  62.  
  63. ' wenn kein Programmende, dann geht es hier weiter: 
  64. ' eine Leerzeile ausgeben und eine kurze Pause
  65.   print
  66.   pause 10
  67.   
  68. goto loop    
  69.  
  70.  
  71. ' ein Unterprogramm aus mehreren Anweisungen,
  72. #special
  73.   print "!!! ";
  74.   print "sehr viel";
  75.   print " !!!",
  76. return
  77.  
  78.